(quoted-insert): Bind translation-table-for-input, not

keyboard-translate-table.

diff --git a/lisp/simple.el b/lisp/simple.el
index 12abbe82bc1e6e6dec6a8dc8e098fcb3917d4d8b..bff80ce66253173c7c987705df5fc7e3e9a08f1a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -318,7 +318,7 @@ In binary overwrite mode, this function does overwrite, and octal
 digits are interpreted as a character code.  This is intended to be
 useful for editing binary files."
   (interactive "*p")
-  (let* ((char (let (keyboard-translate-table)
+  (let* ((char (let (translation-table-for-input)
                 (if (or (not overwrite-mode)
                         (eq overwrite-mode 'overwrite-mode-binary))
                     (read-quoted-char)